home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr53 / pctv4n_1.zip / XQLDICT.C < prev    next >
Text File  |  1993-06-11  |  8KB  |  345 lines
  1. /**************************************************
  2. * FILE NAME:  XQLdict.c     TITLE: dictionary listing
  3. *
  4. * AUTHOR:  K. E. North II, Resource Group, Inc.
  5. *
  6. * SYNOPSIS:
  7. * 
  8. *    List record structure info for Netware SQL 
  9. *    /  XQL tables
  10. *            
  11. ***************************************************
  12. *    NOTE - requires XQLMINTF interface module
  13. ***************************************************
  14. *
  15. *    initialize (strings, counts, error_status)
  16. *    assign variables to table, view
  17. *
  18. *    initiate data base connection -
  19. *         dbConnect() to login, get cursor 
  20. *    execute SQL
  21. *         dbRequest() - compile SQL statement
  22. *
  23. *    IF status <> 0 then
  24. *        while <> end of data:
  25. *             get dictionary info (dbDescribe)
  26. *            format and list columns
  27. *    ELSE
  28. *        process system error message 
  29. *        ENDIF
  30. *    terminate data base connection: dbClose()
  31. *
  32. ***************************************************/
  33.  
  34. #include <stdio.h>
  35. #include <stdlib.h>
  36. #include <conio.h>
  37. #include <string.h>
  38.  
  39. #include "xqlintf.h"
  40. #include "xqldefs.h"
  41. #include "xqlvarbl.h"
  42.  
  43. #ifndef __XQLFUNCS_H
  44. #include "xqlfuncs.h"
  45. #endif
  46.  
  47. #ifndef __DBTYPES_H
  48. #include "dbtypes.h"
  49. #endif
  50.  
  51. #ifndef __REQUEST_H
  52. #include "request.h"
  53. #endif
  54.  
  55. #ifndef __XCOLINFO_H
  56. #include "xcolinfo.h"
  57. #endif
  58.  
  59.  
  60. #undef DEBUG
  61. #undef DEBUG1
  62. #define RCOUNT        10
  63. #define DISPLAYLEN    20
  64.  
  65.  
  66. int        SQLCODE;        /* XQL status code    */
  67.  
  68. int        ExitStatus;
  69. int        StatusReturned;
  70.  
  71. void GetArgs(int, char *, char *, char *, char *);
  72.  
  73. static char    DBDictPath[80];
  74. static char    DBTable[32];
  75.  
  76. char    *table;
  77. char    *dict;
  78.  
  79. COLUMNS ColInfo[MAXFIELD];
  80. COLUMNS *fi;
  81.  
  82. struct ConnectionInfo *si;
  83. struct ViewInfo *vu;
  84. struct SQLRequest *rq;
  85.  
  86. void main (int argc, char *argv[])
  87. {
  88.  
  89. int    flen;        /* string length of field name */
  90. int i;                /* blank fill loop index   */
  91. int TotalLength;     /* sum of field lengths */
  92.  
  93. static char    SQLString[MAXSQL];
  94. static char    DictColName[DISPLAYLEN+1];
  95. char        *ColDataType;
  96.  
  97.  
  98.     si = calloc(1, sizeof(struct ConnectionInfo));       
  99.     vu = calloc(1, sizeof(struct ViewInfo));
  100.     rq = calloc(1, sizeof(struct SQLRequest));
  101.  
  102.                         /* initialize strings */
  103.     memset(SQLString,'\x0',sizeof(SQLString));
  104.     memset(DBDictPath,'\x0',sizeof(DBDictPath));
  105.     memset(DBTable,'\x0',sizeof(DBTable));
  106.  
  107.     table     = &DBTable[0];
  108.     dict     = &DBDictPath[0];
  109.  
  110.     SQLCODE = SQL_SUCCESS;    /* zero XQLM SQLCODE */
  111.     StatusReturned = SQL_SUCCESS;
  112.  
  113.     GetArgs(argc,argv[1],argv[2],table,dict);
  114.  
  115.  
  116.     /*******************************************/
  117.     /* open data base - login, get 1st cursor  */
  118.     /*******************************************/
  119.  
  120.     strcpy (si->data_path, DBDictPath);
  121.     strcpy (si->dict_path, DBDictPath);
  122.  
  123.     StatusReturned = dbConnect (si);
  124.     if ((StatusReturned == NOXQLP))
  125.       {
  126.       printf 
  127.       ("\n<XQLdict> ERROR %d: \n",
  128.                 StatusReturned);
  129.       printf 
  130.       ("\n    Neither XQLP nor NSREQ is loaded.\n");
  131.       exit (1);
  132.       }
  133.     if ((StatusReturned == NOXQLM))
  134.       {
  135.       printf 
  136.       ("\n<XQLdict> ERROR %d: \n",
  137.                 StatusReturned);
  138.       printf 
  139.       ("\n    Neither XQLM nor NSREQ is loaded.\n");
  140.       exit (1);
  141.       }
  142.     if ((StatusReturned != SQL_SUCCESS))
  143.       {
  144.       printf 
  145.         ("\n<XQLdict> ERROR %d: Unable to open %s",
  146.                         StatusReturned, DBDictPath);
  147.       exit (1);
  148.       }
  149.  
  150.                         /* specify query string */
  151.     strcpy(SQLString,"SELECT * FROM ");
  152.     strcat(SQLString,DBTable);
  153.                         /* save request string */
  154.     strcpy(rq->Statement,SQLString);
  155.  
  156.                     /************************/
  157.                     /*  compile and execute */
  158.                     /************************/
  159.     SQLCODE = SQL_SUCCESS;
  160.     StatusReturned = SQL_SUCCESS;
  161.     StatusReturned = dbRequest(rq);
  162.     if ((StatusReturned != SQL_SUCCESS))
  163.         {
  164.         if (StatusReturned < 0 )
  165.             {
  166.             printf 
  167.             ("\n<XQLdict> STATUS: compiling  %s\n",
  168.                      SQLString);
  169.             }
  170.         else
  171.             {
  172.             printf 
  173.             ("\n<XQLdict> ERROR: compiling  %s\n", 
  174.                     SQLString);
  175.             exit (1);
  176.             }
  177.         }
  178.  
  179.                         /************************/
  180.                         /*  get dictionary         */
  181.                         /************************/
  182.  
  183.     printf ("\nStructure for table: %s\n", DBTable);                
  184.     printf ("Column     Column Name            Type\
  185.     Width  Dec  Int.Size\n");
  186.  
  187.     SQLCODE = SQL_SUCCESS;
  188.     StatusReturned = SQL_SUCCESS;            
  189.  
  190.     ColPosition = 0; 
  191.     vu->ColCount = 0;
  192.     TotalLength = 0;
  193.     vu->RowLength = 2; /* column lengths + separators */
  194.  
  195.     do
  196.         {
  197.                     /* point to column descriptor */
  198.         fi = &ColInfo[ColPosition];
  199.         StatusReturned = SQL_SUCCESS;
  200.  
  201.                 /* get data dictionary for 
  202.                 the current cursor ID */
  203.         StatusReturned = 
  204.             dbDescribe( ColPosition, 
  205.                             fi, rq );
  206.  
  207.         if ((StatusReturned != SQL_SUCCESS))
  208.             {
  209.             if (StatusReturned == INVALIDPOS)
  210.               {
  211.               break;
  212.               }
  213.             else
  214.               {
  215.             printf 
  216.               ("\n<XQLdict> ERROR %d: \n",
  217.                 StatusReturned);
  218.             printf 
  219.               ("\n getting data dictionary for %s\n", 
  220.                   SQLString);
  221.               exit (1);
  222.               }
  223.             };
  224.     vu->ColCount++;        /* update column count */
  225.  
  226.                         /* re-calc row length */
  227.     vu->RowLength +=
  228.         ColInfo[ColPosition].Width + 2;
  229.  
  230.                         /* re-calc cols length */
  231.     TotalLength +=
  232.         ColInfo[ColPosition].Width;
  233.  
  234.  
  235.     ColDataType = DecodeXQLDataType(fi->DataType);
  236.     strcpy(DictColName,fi->ColName);
  237.     flen = strlen(fi->ColName);
  238.     for ( i=flen; i < DISPLAYLEN; i++ );
  239.         {
  240.         DictColName[i]='\x20';
  241.         }
  242.     DictColName[DISPLAYLEN]='\x0';
  243.     printf 
  244.     ("\n %3d  %20.20s  %12.12s   %5d  %2d  %5d", 
  245.                         vu->ColCount,
  246.                         DictColName,
  247.                         ColDataType,
  248.                         fi->Width,
  249.                         fi->Scale,
  250.                         fi->Size);
  251.  
  252.     ColPosition++;
  253.         }
  254.     while (StatusReturned == SQL_SUCCESS);
  255.  
  256.                     /* display summary */
  257.     printf 
  258.     ("\nTotal: %d      Maximum View Length: %d\n",
  259.         TotalLength, vu->RowLength);
  260.  
  261.                         /****************/
  262.                         /*    close        */
  263.                         /****************/
  264.     SQLCODE = SQL_SUCCESS;
  265.     StatusReturned = dbClose ();
  266.     if ( StatusReturned )
  267.         {
  268.         printf 
  269.           ("\n<XQLdict> ERROR %d: \n",
  270.             StatusReturned);
  271.         printf 
  272.           ("\n dbClose failed, CursorID: %d\n", 
  273.                         rq->CursorID);
  274.         exit (1);
  275.         }
  276. }
  277.  
  278. /**************************************************
  279. * FUNCTION NAME: GetArgs
  280. *
  281. * AUTHOR:         Ken North 
  282. *
  283. * SYNOPSIS:
  284. *
  285. *     get table name and dictionary path from 
  286. *    command line or user
  287. *
  288. ***************************************************/
  289.  
  290. void GetArgs(int argc, char *arg1, char *arg2, 
  291.                     char *table, char *dict)
  292. {
  293. static char name [80]; 
  294.  
  295.   if (argc > 1)
  296.     {
  297.     memset(name,'\x0',sizeof(name));
  298.     if (*arg1 == '?')
  299.       {
  300.       printf("\n  Usage: XQLDICT table \
  301.  dictionarypath\n");
  302.       printf ("\n XQLDICT    Netware SQL / XQL \
  303. data definitions\n");
  304.       printf("   (Requires Btrieve and Netware SQL \
  305. or XQL)\n\n");
  306.       printf
  307.       ("    To display a screen at a time, type:\n");
  308.       printf
  309.       ("       XQLDICT table dictionarypath | \
  310. MORE\n\n");
  311.       printf
  312.       ("    To list to a file, type:\n");
  313.       printf
  314.       ("       XQLDICT table dictionarypath > \
  315. listfile\n\n\n");
  316.       exit(1);
  317.       }            
  318.     strcpy (name, arg1);
  319.     strupr (name);  /* translate to upper case */
  320.     strcpy(table,name) ;     /* copy name to table */
  321.     memset(name,'\x0',sizeof(name));
  322.     }
  323.   if (argc > 2)
  324.     {
  325.     strcpy (name, arg2);
  326.     strupr (name);    /* translate to upper case */
  327.     strcpy(dict,name) ;
  328.     }
  329.   if (argc < 2)
  330.       {
  331.       printf ("Table name ? ");
  332.       gets (name);
  333.       puts ("\n");
  334.       strupr (name);    /* translate to upper case */
  335.       strcpy(table,name) ;
  336.       memset(name,'\x0',sizeof(name)); /* zero name */
  337.       printf ("Dictionary pathname ? ");
  338.       gets (name);
  339.       puts ("\n");
  340.       strupr (name); 
  341.       strcpy(dict,name) ;
  342.       }
  343. }
  344.  
  345.